home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / C-Communications / (c)c12a.d64 / prog menu (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  34 lines
  1. 5 POKE45,PEEK(174):POKE46,PEEK(175):CLR
  2. 10 DV=PEEK(186):IFDV<8ORDV>15THENDV=8
  3. 20 OPEN15,DV,15:ML=38400:SL=52608:DN$=""
  4. 30 PRINT"[147] [211]ELECT PROGRAM:":OPEN1,DV,0,"$:NOVA.*":GET#1,A$,A$:SYSML+54:MX=0
  5. 40 SYSML+54:IFRIGHT$(Z$,1)="."ORRIGHT$(Z$,4)="FREE"THEN80
  6. 50 F$="":MX=MX+1:FORI=12TO22:A$=MID$(Z$,I,1):IFA$=CHR$(34)THENI=22:GOTO70
  7. 60 F$(MX)=F$(MX)+A$
  8. 70 NEXT:PRINT" "F$(MX)"[160]":GOTO40
  9. 80 CLOSE1:PRINT" [210]ETURN TO [206]OVATERM[160]":MX=MX+2
  10. 90 P=1:GOSUB130:IFP=MXTHEN110
  11. 101 PRINT" [204]OADING NOVA."F$(P)
  12. 102 OPEN2,DV,0,"NOVA."+F$(P):INPUT#15,E:CLOSE2:IFE>19THEN30
  13. 105 LOAD"NOVA."+F$(P),DV
  14. 110 OPEN2,DV,0,"NOVATERM ?.?*":INPUT#15,E:CLOSE2:IFE>19THENEND
  15. 115 PRINT" [204]OADING [206]OVATERM..."
  16. 120 POKE787,DV:CLR:LOAD"NOVATERM ?.?*",PEEK(787)
  17. 130 GOSUB290:SYSSL+3:IFPEEK(780)THEN190
  18. 140 SYSML+18
  19. 150 GETA$:IFA$=""THEN150
  20. 160 A=ASC(A$)AND127:IFA=13THEN280
  21. 170 IFA=17ORA=19THENSYSML+18
  22. 180 IFA$="[133]"THENQQ=MX:GOTO260
  23. 190 IFA$=""THENP=P+1:IFP>MXTHENP=1
  24. 200 IFA$="[145]"THENP=P-1:IFP<1THENP=MX
  25. 210 IFA$=""THENP=1
  26. 220 IFA=17ORA=19THENGOTO130
  27. 230 IF(A<49ORA>57)AND(A<65ORA>MX+55)THEN150
  28. 240 QQ=A-48+(A>64)*7:IFQQ>MXTHEN150
  29. 250 SYSSL+3:IFPEEK(780)THENQQ=QQ+1
  30. 260 IFQQ=PTHEN280
  31. 270 SYSML+18:P=QQ:GOSUB290:SYSML+18
  32. 280 PRINT""LEFT$(DN$,MX+3):RETURN
  33. 290 PRINT""LEFT$(DN$,P+1):RETURN
  34.